MacFormat 1994 November/macformat-018.iso/Shareware City/Sound/K1 Librarian 1.0.2/Sample Scripts/13 Set Comment Text - 3

Text File | 1994-07-26 | 225 b | 9 lines | [TEXT/ToyS]

tell application "K1 Librarian"
    activate -- if needed
    set x to "This patch was made by T.Suzuki"
    repeat while (Text 1 of Window -1 is not x)
        set Index of Window -1 to 1
        set Text 1 of Window 1 to x
    end repeat
end tell